home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / jockdem4.arc / READDEM4.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-28  |  264b  |  13 lines

  1. Program ReadTTT5_Demo_4;
  2.  
  3. {used in manual figure 12.1}
  4.  
  5. Uses Crt,ReadTTT5;
  6.  
  7. var Choice : byte;
  8. begin
  9.     Clrscr;
  10.     Read_Select(10,5,'How Good is The Toolkit?   ',
  11.                      '^Bloody_Awful Fair Good The_Best',
  12.                 Choice);
  13. end.